home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle: Internet utan modem / Internet CD.iso / web / computer / wwweps~1.com / adam / galactic.dcr / 00209.ls < prev    next >
Encoding:
Text File  |  1997-03-06  |  1.9 KB  |  57 lines
  1. on mouseUp
  2.   global name, email, city, state, country, score, playtime, today
  3.   updateStage()
  4.   set today to the abbr date
  5.   set name to the text of cast 217
  6.   set email to the text of cast 218
  7.   set city to the text of cast 219
  8.   set state to the text of cast 220
  9.   set country to the text of cast 221
  10.   set name to StripChar(name, " ", "_")
  11.   set email to StripChar(email, " ", "_")
  12.   set city to StripChar(city, " ", "_")
  13.   set state to StripChar(state, " ", "_")
  14.   set country to StripChar(country, " ", "_")
  15.   set playtime to StripChar(playtime, " ", "_")
  16.   set today to StripChar(today, " ", "_")
  17.   set name to StripChar(name, ",", EMPTY)
  18.   set email to StripChar(email, ",", EMPTY)
  19.   set city to StripChar(city, ",", EMPTY)
  20.   set state to StripChar(state, ",", EMPTY)
  21.   set playtime to StripChar(playtime, ",", EMPTY)
  22.   set today to StripChar(today, ",", EMPTY)
  23.   if (name contains "shit") or (name contains "fuck") or (name contains "dick") or (name contains "pussy") or (name contains "asshole") then
  24.     again()
  25.     exit
  26.   end if
  27.   if (email contains "shit") or (email contains "fuck") or (email contains "dick") or (email contains "pussy") or (email contains "asshole") then
  28.     again()
  29.     exit
  30.   end if
  31.   if (city contains "shit") or (city contains "fuck") or (city contains "dick") or (city contains "pussy") or (city contains "asshole") then
  32.     again()
  33.     exit
  34.   end if
  35.   if (state contains "shit") or (state contains "fuck") or (state contains "dick") or (state contains "pussy") or (state contains "asshole") then
  36.     again()
  37.     exit
  38.   end if
  39.   if (country contains "shit") or (country contains "fuck") or (country contains "dick") or (country contains "pussy") or (country contains "asshole") then
  40.     again()
  41.     exit
  42.   end if
  43.   if name = EMPTY then
  44.     again()
  45.     exit
  46.   end if
  47.   send()
  48.   startMovie()
  49.   go(1)
  50. end
  51.  
  52. on again
  53.   repeat with n = 217 to 221
  54.     set the text of member n to EMPTY
  55.   end repeat
  56. end
  57.